-- card: 2281 from stack: in
-- bmap block id: 5909
-- flags: 0000
-- background id: 2620
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=433 top=276 right=301 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opdater
----- HyperTalk script -----
on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  clearScreen
  put empty into background field "total"
  reset paint
  choose oval tool
  set lineSize to 2
  set filled to true

  put frameLeft() into horiz
  put maxLine(field "Data") into maxValue
  set cursor to 4 -- watchCursor

  put the number of lines in field "Data" into coins
  if coins > 10 then
    answer "Der kan kun vises 10 søjler." with "OK"
    put 10 into coins
  end if

  repeat with i = 1 to coins
    get line i of field "data"
    if it is not empty then
      put round(frameHeight()/8.2 * it/maxValue) into coinCount
      set pattern to 13
      drawCoins horiz,frameBottom()-2,coinCount
    end if
    add 40 to horiz
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp

on drawCoins left,bottom,howMany
  put bottom into y
  repeat with i = 1 to howMany
    subtract 8 from y
    drag from left,y to left+30,y+10
  end repeat
end drawCoins



-- part contents for background part 5
----- text -----
10
20
30
56
52
40
50
70
90
43


-- part contents for background part 11
----- text -----
Overskud fordelt på år

-- part contents for background part 13
----- text -----
2 af 3

-- part contents for background part 12
----- text -----
1988 Rapport